home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 1470 / 3ddemo.bas < prev    next >
Encoding:
BASIC Source File  |  1996-06-09  |  681 b   |  28 lines
  1. Attribute VB_Name = "bas3D"
  2. Option Explicit
  3.  
  4. Public Const gnNORMAL = 0
  5. Public Const gnRAISED = 1
  6. Public Const gnRECESSED = 2
  7. Public Const gnEMBOSSED_RAISED = 3
  8. Public Const gnEMBOSSED_RECESSED = 4
  9. Public Const gnFLOATING = 5
  10. Public Const gnOUTLINE_RIGHT = 6
  11. Public Const gnOUTLINE_LEFT = 7
  12. Public Const gnPROJECTED = 8
  13.  
  14. Public Const gnUSE_CONTROL_FONT = 1
  15.  
  16. Public Const gnLIGHT_SHADOW = 0
  17. Public Const gnDARK_SHADOW = 1
  18.  
  19. Public Const gnLEFT_JUSTIFY = 0
  20. Public Const gnRIGHT_JUSTIFY = 1
  21. Public Const gnCENTER = 2
  22.  
  23. Sub CenterForm(roForm As Form)
  24.     With roForm
  25.         .Move (Screen.Width - .Width) \ 2, (Screen.Height - .Height) \ 2
  26.     End With
  27. End Sub
  28.